﻿Public Class FRMregistrarusuario
    Private Sub BTNregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNregistrar.Click
        'Dim mylogin As New Login
        'mylogin.caducidadlogin = DTPcaducidad.Value
        'mylogin.IDsusariologin = TXTid.Text
        'mylogin.paswordlogin = TXTpasword.Text
        'mylogin.usuariologin = TXTnombre.Text
        'CType(Me.MdiParent, frmContenedor).ListaloginTotales.AddFirst(mylogin)
        '' CType(Me.MdiParent, frmContenedor).ProcesoPadre = Process.GetCurrentProcess.ProcessName
        'MsgBox("SE REGISTRO AL USUARIO EXITOSA")
        'Me.Hide()
        
        Try

            Dim myconeccion As New Conexion
            myconeccion.conectar()
            Dim consulta As String

            consulta = "insert into LOGEO values ('" + TXTnombre.Text + "','" + TXTpasword.Text + "',convert(datetime,'" + DTPcaducidad.Value.Date + "',103))"
            MsgBox(consulta)
            myconeccion.consulta(consulta)
        Catch ex As Exception
            MsgBox(ex)

        End Try

    End Sub

    Private Sub DTPcaducidad_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTPcaducidad.ValueChanged

    End Sub

    Private Sub FRMregistrarusuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class